home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
grapprog
/
splt232w.zip
/
THPGL2.ZIP
/
T191.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-05-01
|
687b
|
22 lines
10 OPEN "T191.PLT" FOR OUTPUT AS 1
20 PRINT #1,"INPS7000,5000SP1"
30 PRINT #1,"PA3500,2500"
40 PRINT #1,"DI0,1LB___1990"+CHR$(3)
50 PRINT #1,"DI1,1LB___1991"+CHR$(3)
60 PRINT #1,"DI1,0LB___1992"+CHR$(3)
100 PI=3.14593
110 A%=COS(315*(PI/180))
120 B%=sin(315*(PI/180))
130 PRINT #1,"DI";A%;",";B%;"LB___1993"+CHR$(3)
140 C%=COS(270*(PI/180))
150 D%=sin(270*(PI/180))
160 PRINT #1,"DI";C%;",";D%;"LB___1994"+CHR$(13)+CHR$(3)
170 E%=COS(225*(PI/180))
180 F%=sin(225*(PI/180))
190 PRINT #1,"DI";E%;",";F%;"LB___1995"+CHR$(13)+CHR$(3)
200 G%=COS(-180*(PI/180))
210 H%=sin(-180*(PI/180))
220 PRINT #1,"DI";G%;",";H%;"LB___1996"+CHR$(13)+CHR$(3)
230 PRINT #1,"PG;"
240 END